home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EditString.cpt / EditString Stack / card_6525.txt < prev    next >
Text File  |  1990-06-22  |  3KB  |  107 lines
  1. -- card: 6525 from stack: in
  2. -- bmap block id: 8587
  3. -- flags: 0000
  4. -- background id: 3493
  5. -- name: format
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=88 top=199 right=219 bottom=204
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: format normal
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put editString("format", fld A, cd fld numDecs, TRUE, cd fld numChars, TRUE) into fld b
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A003
  30. -- rect: left=88 top=220 right=240 bottom=204
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: format Sci. Not.
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   put editString("format", fld A, cd fld numDecs, FALSE, cd fld numChars, TRUE) into fld b
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 3 (field)
  47. -- low flags: 00
  48. -- high flags: 0002
  49. -- rect: left=332 top=218 right=235 bottom=363
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 97
  54. -- text size: 9
  55. -- style flags: 0
  56. -- line height: 12
  57. -- part name: numChars
  58.  
  59.  
  60. -- part 4 (field)
  61. -- low flags: 00
  62. -- high flags: 0002
  63. -- rect: left=436 top=218 right=235 bottom=467
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 97
  68. -- text size: 9
  69. -- style flags: 0
  70. -- line height: 12
  71. -- part name: numDecs
  72.  
  73.  
  74. -- part contents for background part 2
  75. ----- text -----
  76. This function is for formatting numbers to a specified number of decimal places.  It will format the number into standard decimal or scientific notation.  It will also take as input standard decimal or scientific notation.
  77.  
  78. -- part contents for background part 1
  79. ----- text -----
  80. format
  81.  
  82. -- part contents for background part 3
  83. ----- text -----
  84. editString("Format", source, numDecimals, doDecimal, fieldWidth, padRight)
  85. ‚Ä¢ source is the input number (can be scientific notation)
  86. ‚Ä¢ numDecimals is the number of desired decimals (less one for Sci. Notation)
  87. ‚Ä¢ doDecimal is TRUE for standard decimal format, FALSE for Sci. Notation
  88. ‚Ä¢ fieldWidth is the desired resultant field width padded with spaces
  89. ‚Ä¢ padRight is TRUE to place the number in the right, FALSE for the left
  90. Note:  if fieldWidth is too small to display the number then it is ignored.
  91.  
  92.  
  93. -- part contents for card part 3
  94. ----- text -----
  95. 18
  96.  
  97. -- part contents for card part 4
  98. ----- text -----
  99. 5
  100.  
  101. -- part contents for background part 4
  102. ----- text -----
  103. 2.3455E+2
  104.  
  105. -- part contents for background part 5
  106. ----- text -----
  107.          234.55000